;:sys36864
	;.opt oo
	*= $c000
;
; f-tasten belegen  (c) nh-190788-arr
; sys 49152           = anschalten
; sys 49155,nr,"text" = belegen
;
	jmp an
	jmp set
an	sei
	lda #<neuirq
	ldy #>neuirq
	sta 788
	sty 789
	ldx #0
	txa
clr	sta memory,x
	dex
	bne clr
	cli
	rts
table	.byt 3,0,1,2
neuirq	lda 157
	bne goon
nix	jmp 59953
goon	lda 212
	ora 216
	bne nix
	lda 203
	cmp 141
	beq nix
	sta 141
	cmp #3
	bcc nix
	cmp #7
	bcs nix
	tax
	lda table-3,x
	asl
	tay
	ldx 653
	beq null
	iny
null	tya
	asl
	asl
	asl
	asl
	tay
	ldx #0
trans	lda memory,y
	beq fini
	sta 631,x
	inx
	iny
	bne trans
fini	stx 198
	jmp 59953
set	jsr $aefd
	jsr $b79e
	dex
	cpx #8
	bcc okay
	jmp $b248
okay	stx 143
	jsr $aefd
	jsr $ad9e
	jsr $b6a3
	cmp #11
	bcc gut
	jmp $a571
gut	tay
	dey
	sty 142
	lda 143
	asl
	asl
	asl
	asl
	adc 142
	tax
	lda #0
	sta memory+1,x
putin	lda ($22),y
	cmp #"_"
	bne rein
	lda #13
rein	sta memory,x
	dex
	dey
	bpl putin
	rts
memory	=*